home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / assembly / madintr.lha / RAZOR-INTRO.s < prev   
Encoding:
Text File  |  1987-01-22  |  13.9 KB  |  552 lines
  1. ;       
  2. ;       -+-+-+-+-+SPREAD BY THE GREAT BUKAROO/M.A.D-+-+-+-+
  3. ;    ***************************************************
  4. ;    *        -   AGAIN THE SENTINEL   -               *
  5. ;    *           CONTACT ME TO SWAP SOURCES!           *
  6. ;    ***************************************************
  7.  
  8. ;       FAIRE LICI POUR MODIFIER LE SCROLLING
  9. ;    ASSEMBLER
  10. ;    SAUVEGARDER: WI DE $79000 A FIN - FAIRE Y
  11. ;    COMPACTER AVEC LE BYTEKILLER - FICHIER EXECUTABLE EN $79000
  12.  
  13. ;    SOYEZ COOL ET MENTIONNEZ DE QUI VOUS AVEZ CETTE SOURCE !
  14. ;             THE SENTINEL
  15.  
  16.  
  17. jmp    $79000
  18. org    $79000
  19. load    $79000
  20.  
  21. >EXTERN "DF0:RAZOR-FONT",FONT,3480
  22.  
  23.         lea     $7C000,A0
  24.  
  25. GO:        clr.l   (A0)+
  26.         cmpa.l  #$7D000,A0
  27.         bne.s   GO    
  28.         bsr     UN
  29.         move.l  #FLASH,L3
  30.         lea     $DFF000,A6
  31.         clr.w   $0042(A6)
  32.         bsr     BB
  33.         bsr     COPPER
  34.         move.w  #$7FFF,D0
  35.         move.w  D0,$0096(A6)
  36.         move.w  D0,$009A(A6)
  37.         move.w  D0,$009C(A6)
  38.         move.w  #$83E0,$0096(A6)
  39.         move.w  #$C010,$009A(A6)
  40.         move.l  $006C.W,L6            ;WORD
  41.         move.l  #AA,$006C.W
  42.         move.l  #$0007C000,$0080(A6)
  43.         clr.w   $0088(A6)
  44.  
  45. MOUSE:        btst    #6,$BFE001
  46.         bne.s   MOUSE
  47.         bsr     L79246
  48.         move.l  L6,$006C.W            ;WORD
  49.         move.w  #$E03C,$009A(A6)
  50.         move.w  #$83F0,$0096(A6)
  51.         bsr     L79128
  52.         clr.l   D0
  53.         rts
  54.  
  55. AA:        btst    #4,$001F(A0)
  56.         bne     CC
  57.         movem.l D0-D7/A0-A6,-(A7)
  58.         addq.w  #1,LA
  59.         cmpi.w  #$00C8,LA
  60.         bne.s   L790BA
  61.         bsr     L7914C
  62.         subq.w  #1,LA
  63.  
  64. L790BA:    bsr     L79250
  65.         bchg    #$0002,L7
  66.         bne.s   L790EE
  67.         bchg    #$0003,L7
  68.         bne.s   L790EE
  69.         addq.l  #2,L3
  70.         cmpi.l  #FONT,L3
  71.         bne.s   L790EE
  72.         move.l  #FLASH,L3
  73.  
  74. L790EE:        move.l  L3,A0
  75.         move.l  L1,A1
  76.         move.w  (A0),(A1)
  77.         move.l  #STARS,A1
  78.         lea     $0007F011,A2
  79.         move.w  #$001B,D2
  80.  
  81. L7910C:        addq.b  #1,(A2)
  82.         addq.l  #8,A2
  83.         addq.b  #2,(A2)
  84.         addq.l  #8,A2
  85.         addq.b  #3,(A2)
  86.         addq.l  #8,A2
  87.         dbf     D2,L7910C
  88.         movem.l (A7)+,D0-D7/A0-A6
  89.  
  90. CC:        move.w  #$0010,$009C(A6)
  91.         rte
  92.  
  93. L79128:        move.w  #$8020,$0096(A6)
  94.         move.l  $00000004,A6
  95.         lea     LC(pc),A1
  96.         jsr     -408(A6)
  97.         move.l  D0,A1
  98.         move.l  $0026(A1),$DFF080
  99.         jsr     -414(A6)
  100.         rts
  101.  
  102. L7914C:        bsr     L79246
  103.         move.l  #$00071002,$0050(A6)
  104.         move.l  #$00071000,$0054(A6)
  105.         move.l  #$E9F00000,$0040(A6)
  106.         move.l  #$FFFFFFFF,$0044(A6)
  107.         clr.l   $0064(A6)
  108.         move.w  #$0795,$0058(A6)
  109.  
  110. L7917A:        addq.b  #1,L9
  111.         cmpi.b  #$02,L9
  112.         beq.s   L791D6
  113.         cmpi.b  #$03,L9
  114.         beq     L79222
  115.         cmpi.b  #$09,L9
  116.         beq.s   L791A2
  117.         rts
  118.  
  119. L791A2:        clr.b   L9
  120.         bsr.s   L791AC
  121.         bra.s   L7917A
  122.  
  123. L791AC:        bsr     L79246
  124.         move.l  L4,$0050(A6)
  125.         move.l  #$0007102A,$0054(A6)
  126.         move.w  #$09F0,$0040(A6)
  127.         move.l  #$00760028,$0064(A6)
  128.         move.w  #$0781,$0058(A6)
  129.         rts
  130.  
  131. L791D6:        clr.l   D7
  132.         move.l  #SCROLLTEXT,A5
  133.         adda.w  L8,A5
  134.         addq.w  #1,L8
  135.         move.b  (A5),L5
  136.         cmpi.b  #$00,L5
  137.         beq.s   L79212
  138.         cmpi.b  #$61,L5
  139.         beq.s   L7921A
  140.         move.b  L5,D7
  141.         move.l  D7,L5
  142.         rts
  143.  
  144. L79212:        clr.w   L8
  145.         bra.s   L791D6
  146.  
  147. L7921A:        clr.w   LA
  148.         bra.s   L791D6
  149.  
  150. L79222:        subi.l  #$00000020,L5
  151.         move.l  L5,D6
  152.         rol.w   #1,D6
  153.         move.l  #$00070000,L4
  154.         add.l   D6,L4
  155.         rts
  156.  
  157. L79246:        btst    #$000E,$0002(A6)
  158. L7924C:        bne.s   L79246
  159. L7924E:        rts
  160.  
  161. L79250:        move.l  LB,A0
  162.         bchg    #$0001,L7
  163.         bne.s   L7926C
  164.         move.l  #$00074002,D6
  165.         move.w  #$2002,(A0)
  166.         bra.s   L79276
  167.  
  168. L7926C:        move.l  #$00072002,D6
  169.         move.w  #$4002,(A0)
  170.  
  171. L79276:        bsr     L79246
  172.         move.l  D6,$0054(A6)
  173.         subq.l  #2,D6
  174.         move.w  #$0100,$0040(A6)
  175.         move.w  #$0002,$0066(A6)
  176.         move.w  #$2B14,$0058(A6)
  177.         moveq   #$14,D3
  178.         move.l  #$00071000,D2
  179.         move.l  L2,A2
  180.         bsr     L79246
  181.         move.w  #$0DFC,$0040(A6)
  182.         move.w  #$0028,$0066(A6)
  183.         move.l  #$00280028,$0062(A6)
  184.         move.w  #$8400,$0096(A6)
  185.         move.l  #$0006FE00,D7
  186.         move.w  #$0741,D1
  187.  
  188. L792C8:        move.w  #$8000,D0
  189.         moveq   #$0F,D5
  190.  
  191. L792CE:        moveq   #$00,D4
  192.         move.b  (A2)+,D4
  193.         move.l  D7,A0
  194.         adda.w  D4,A0
  195.         adda.w  D4,A0
  196.         move.w  (A0),D4
  197.         add.w   D4,D6
  198.         move.l  D6,$004C(A6)
  199.         move.l  D2,$0050(A6)
  200.         move.l  D6,$0054(A6)
  201.         sub.l   D4,D6
  202.         move.w  D0,$0046(A6)
  203.         move.w  D1,$0058(A6)
  204.         ror.w   #1,D0
  205.         dbf     D5,L792CE
  206.         addq.l  #2,D2
  207.         addq.l  #2,D6
  208.         dbf     D3,L792C8
  209.         move.w  #$0400,$0096(A6)
  210.         cmpi.l  #$0007D190,L2
  211.         beq     L7931C
  212.         addq.l  #4,L2
  213.         rts
  214.  
  215. L7931C:        subi.l  #$0000018C,L2
  216.         rts
  217.  
  218. BB:        move.l  #TEXT,A0
  219.         move.l  #$000763F0,D1
  220.         clr.l   D0
  221.         clr.l   D2
  222.  
  223. L79338:        addq.w  #1,D2
  224.         move.b  (A0)+,D0
  225.         subi.l  #$00000020,D0
  226.         mulu    #$0002,D0
  227.         addi.l  #$00070000,D0
  228.         bsr.s   L7937A
  229.         addq.l  #2,D1
  230.         cmpi.l  #20,D2
  231.         beq.s   L79372
  232.         cmpi.l  #40,D2
  233.         beq.s   L79372
  234.         cmpi.l  #60,D2
  235.         beq.s   L79372
  236.         cmpi.l  #80,D2
  237.         bne.s   L79338
  238.         rts
  239.  
  240. L79372:        addi.l  #$00000518,D1
  241.         bra.s   L79338
  242.  
  243. L7937A:        bsr     L79246
  244.         move.l  D0,$0050(A6)
  245.         move.l  D1,$0054(A6)
  246.         move.w  #$09F0,$0040(A6)
  247.         move.l  #$FFFFFFFF,$0044(A6)
  248.         move.l  #$00760028,$0064(A6)
  249.         move.w  #$0741,$0058(A6)
  250.         rts
  251.  
  252. UN:        lea     $0006FE00,A0
  253.         clr.w   D0
  254.  
  255. L793AC:        move.w  D0,D1
  256.         addq.w  #1,D0
  257.         mulu    #$002A,D1
  258.         move.w  D1,(A0)+
  259.         cmpa.l  #$00070000,A0
  260.         bne.s   L793AC
  261.         lea     FONT,A0
  262.         lea     $00070000,A1
  263.  
  264. L793CA:    move.w  (A0)+,(A1)+
  265.         cmpa.l  #STARS,A0
  266.         bne.s   L793CA
  267.         lea     LD,A0
  268.         lea     $0007D000,A1
  269.         move.l  A1,L2
  270.         lea     $0007D190,A2
  271.  
  272. L793EC:    move.b  (A0),(A1)+
  273.         move.b  (A0)+,(A2)+
  274.         cmpa.l  #LF,A0
  275.         bne.s   L793EC
  276.         lea     $00071000,A2
  277.         lea     $00076000,A3
  278.  
  279. L79404:    clr.l   (A2)+
  280.         clr.l   (A3)+
  281.         cmpa.l  #$00074000,A2
  282.         bne.s   L79404
  283.         move.l  #STARS,A2
  284.         lea     $7F010,A3
  285.         move.b  #$51,D2
  286.         move.l  #$00005200,D3
  287.         move.w  #$0000,D4
  288.  
  289. L7942A:    addq.b  #1,D4
  290.         cmpi.b  #$04,D4
  291.         bne.s   L79436
  292.         move.b  #$01,D4
  293.  
  294. L79436:    move.b  D2,(A3)+
  295.         addq.b  #2,D2
  296.         move.b  (A2)+,D5
  297.         cmpi.b  #$FF,D5
  298.         bne.s   L79450
  299.         suba.l  #$00000001,A3
  300.         move.l  #$00000000,(A3)+
  301.         bra.s   L7947E
  302.  
  303. L79450:    move.b  D5,(A3)+
  304.         move.w  D3,(A3)+
  305.         cmpi.b  #$01,D4
  306.         bne.s   L79460
  307.         move.l  #$10000000,(A3)+
  308.  
  309. L79460:    cmpi.b  #$02,D4
  310.         bne.s   L7946C
  311.         move.l  #$10001000,(A3)+
  312.  
  313. L7946C:    cmpi.b  #$03,D4
  314.         bne.s   L79478
  315.         move.l  #$00001000,(A3)+
  316.  
  317. L79478:    addi.w  #$0200,D3
  318.         bra.s   L7942A
  319.  
  320. L7947E:    rts
  321.  
  322. COPPER:        move.l  #$0007C000,A0
  323.         move.l  #$009C8010,(A0)+
  324.     move.l  #$00968020,(A0)+
  325.     move.l  #$01200007,(A0)+
  326.     move.l  #$0122F010,(A0)+
  327.     move.l  #$01240007,(A0)+
  328.     move.l  #$0126F000,(A0)+
  329.     move.l  #$01280007,(A0)+
  330.     move.l  #$012AF000,(A0)+
  331.     move.l  #$012C0007,(A0)+
  332.     move.l  #$012EF000,(A0)+
  333.     move.l  #$01300007,(A0)+
  334.     move.l  #$0132F000,(A0)+
  335.     move.l  #$01340007,(A0)+
  336.     move.l  #$0136F000,(A0)+
  337.     move.l  #$01380007,(A0)+
  338.     move.l  #$013AF000,(A0)+
  339.     move.l  #$013C0007,(A0)+
  340.     move.l  #$013EF000,(A0)+
  341.     move.l  #$01A00000,(A0)+
  342.     move.l  #$01A20555,(A0)+
  343.     move.l  #$01A40EEE,(A0)+
  344.     move.l  #$01A60999,(A0)+
  345.     move.l  #$2C09FFFE,(A0)+
  346.     move.l  #$01040008,(A0)+
  347.     move.l  #$008E2C71,(A0)+
  348.     move.l  #$0090FFC0,(A0)+
  349.     move.l  #$00920038,(A0)+
  350.     move.l  #$009400D0,(A0)+
  351.     move.l  #$01000000,(A0)+
  352.     move.l  #$01020000,(A0)+
  353.     move.w  #$0192,(A0)+
  354.     move.l  A0,L1
  355.     move.w  #$0000,(A0)+
  356.     move.l  #$4B09FFFE,(A0)+
  357.     move.l  #$0180000D,(A0)+
  358.     move.l  #$4C09FFFE,(A0)+
  359.     move.l  #$0180066F,(A0)+
  360.     move.l  #$4D09FFFE,(A0)+
  361.     move.l  #$0180000D,(A0)+
  362.     move.l  #$4E09FFFE,(A0)+
  363.     move.l  #$01800000,(A0)+
  364.     move.l  #$5109FFFE,(A0)+
  365.     move.l  #$01002600,(A0)+
  366.     move.l  #$01080002,(A0)+
  367.     move.l  #$010A0002,(A0)+
  368.     move.l  #$00E00007,(A0)+
  369.     move.w  #$00E2,(A0)+
  370.     move.l  A0,LB
  371.     move.w  #$0002,(A0)+
  372.     move.l  #$00E40007,(A0)+
  373.     move.l  #$00E66000,(A0)+
  374.     move.l  #$5109FFFE,A1
  375.     move.l  #LF,A2
  376.  
  377. L795BC:    move.l  A1,(A0)+
  378.     move.w  #$0182,(A0)+
  379.     move.w  (A2)+,(A0)+
  380.     adda.l  #$02000000,A1
  381.     cmpa.l  #$FF09FFFE,A1
  382.     bne.s   L795BC
  383.     move.l  #$01000000,(A0)+
  384.     move.l  #$FF09FFFE,(A0)+
  385.     move.l  #$0180000D,(A0)+
  386.     move.l  #$FFE1FFFE,(A0)+
  387.     move.l  #$0009FFFE,(A0)+
  388.     move.l  #$0180066F,(A0)+
  389.     move.l  #$0109FFFE,(A0)+
  390.     move.l  #$0180000D,(A0)+
  391.     move.l  #$0209FFFE,(A0)+
  392.     move.l  #$01800004,(A0)+
  393.     move.l  #$FFFFFFFE,(A0)+
  394.     rts
  395. ;ICI EST LE TEXTE D' ARRIERE PLAN QUI FLASHE
  396. TEXT:    
  397.     DC.B    "       M.A.D        "    
  398.     DC.B    "  PROUDLY PRESENT   "
  399.     DC.B    "    - PACK 008 -    "
  400.     DC.B    " - PACK BY BUKAROO -",0
  401. EVEN
  402. SCROLLTEXT:    
  403. DC.B    " M.A.D PRESENT A NEW PACK DONE BY BUKAROO "
  404. DC.B    " COOL PACK NO?....CONTACT US .........................."
  405. DC.B    " INTRO RIPPED BY SENTINEL[ THANX ] ",0
  406.  
  407. EVEN
  408. L1:    DC.W    $0007,$C07A
  409. L2:    DC.W    $0007,$D03C
  410. L3:    DC.W    $0007,$9AD0,$0000
  411.     DC.W    $0000,$5B2F,$5D20
  412. L4:    DC.W    $0007,$0000,$5220,$2020
  413. L5:    DC.W    $0000
  414.     DC.W    $0000
  415. L6:    DC.W    $00FC,$0CD8
  416. L7:    DC.W    $0000
  417. L8:    DC.W    $001E
  418. L9:    DC.W    $0800
  419. LA:    DC.W    $00C7
  420. LB:    DC.W    $0007
  421.     DC.W    $C0B2
  422. LC:    DC.W    $6772,$6170,$6869,$6373,$2E6C,$6962,$7261
  423.     DC.W    $7279,$0000
  424. LD:    DC.W    $4748,$494A,$4B4D,$4E4F,$5051,$5253
  425.     DC.W    $5455,$5658,$595A,$5B5C,$5D5E,$5F60,$6162,$6364
  426.     DC.W    $6566,$6768,$696A,$6B6C,$6D6E,$6F70,$7172,$7373
  427.     DC.W    $7475,$7677,$7878,$797A,$7B7C,$7C7D,$7E7E,$7F80
  428.     DC.W    $8081,$8282,$8384,$8485,$8586,$8687,$8788,$8889
  429.     DC.W    $8989,$8A8A,$8B8B,$8B8B,$8C8C,$8C8D,$8D8D,$8D8D
  430.     DC.W    $8D8E,$8E8E,$8E8E,$8E8E,$8E8E,$8E8E,$8E8E,$8E8E
  431.     DC.W    $8D8D,$8D8D,$8D8D,$8C8C,$8C8B,$8B8B,$8B8A,$8A89
  432.     DC.W    $8989,$8888,$8787,$8686,$8585,$8484,$8382,$8281
  433.     DC.W    $8080,$7F7E,$7E7D,$7C7C,$7B7A,$7978,$7877,$7675
  434.     DC.W    $7473,$7372,$7170,$6F6E,$6D6C,$6B6A,$6968,$6766
  435.     DC.W    $6564,$6362,$6160,$5F5E,$5D5C,$5B5A,$5958,$5655
  436.     DC.W    $5453,$5251,$504F,$4E4D,$4B4A,$4948,$4746,$4544
  437.     DC.W    $4341,$403F,$3E3D,$3C3B,$3A39,$3836,$3534,$3332
  438.     DC.W    $3130,$2F2E,$2D2C,$2B2A,$2928,$2726,$2524,$2322
  439.     DC.W    $2120,$1F1E,$1D1C,$1B1B,$1A19,$1817,$1616,$1514
  440.     DC.W    $1312,$1211,$1010,$0F0E,$0E0D,$0C0C,$0B0A,$0A09
  441.     DC.W    $0908,$0807,$0706,$0605,$0505,$0404,$0303,$0303
  442.     DC.W    $0202,$0201,$0101,$0101,$0100,$0000,$0000,$0000
  443.     DC.W    $0000,$0000,$0000,$0000,$0101,$0101,$0101,$0202
  444.     DC.W    $0203,$0303,$0304,$0405,$0505,$0606,$0707,$0808
  445.     DC.W    $0909,$0A0A,$0B0C,$0C0D,$0E0E,$0F10,$1011,$1212
  446.     DC.W    $1314,$1516,$1617,$1819,$1A1B,$1B1C,$1D1E,$1F20
  447.     DC.W    $2122,$2324,$2526,$2728,$292A,$2B2C,$2D2E,$2F30
  448.     DC.W    $3132,$3334,$3536,$3839,$3A3B,$3C3D,$3E3F,$4041
  449.     DC.W    $4344,$4546
  450. LF:    DC.W    $0300,$0400,$0500,$0600,$0700,$0800
  451.     DC.W    $0900,$0A00,$0B00,$0C00,$0D00,$0E00,$0F00,$0F10
  452.     DC.W    $0F20,$0F30,$0F40,$0F50,$0F60,$0F70,$0F80,$0F90
  453.     DC.W    $0FA0,$0FB0,$0FC0,$0FD0,$0FE0,$0FF0,$0FF1,$0FF2
  454.     DC.W    $0FF3,$0FF4,$0FF5,$0FF6,$0FF7,$0FF8,$0FF9,$0FFA
  455.     DC.W    $0FFB,$0FFC,$0FFD,$0FFE,$0FFF,$0EFF,$0DFF,$0CFF
  456.     DC.W    $0BFF,$0AFF,$09FF,$08FF,$07FF,$06FF,$05FF,$04FF
  457.     DC.W    $03FF,$02FF,$01FF,$00FF,$00EF,$00DF,$00CF,$00BF
  458.     DC.W    $00AF,$009F,$008F,$007F,$006F,$005F,$004F,$003F
  459.     DC.W    $002F,$001F,$000F,$000E,$000D,$000C,$000B,$000A
  460.     DC.W    $0009,$0008,$0007,$0006,$0005,$0004,$0003,$0003
  461. FLASH:    
  462.  
  463.     DC.W    $003,$003,$004,$004,$005,$005,$006,$006
  464.     DC.W    $007,$007,$007,$008,$008,$008,$009,$009
  465.     
  466.     DC.W    $0118,$0229,$044A,$066B,$088C,$0AAD,$0CCE,$0FFF
  467.     DC.W    $0FFF,$0ECC,$0DAA,$0C88,$0B66,$0A44,$0922,$0811
  468.     
  469.     DC.W    $0900,$0900,$0a00,$0a00,$0b00,$0b00,$0c00,$0c00
  470.     DC.W    $0d00,$0d00,$0c00,$0c00,$0b00,$0b00,$0a00,$0a00
  471.     
  472.     
  473.     DC.W    $0800,$0700,$0600,$0500,$0400,$0200,$0000,$0000
  474.     DC.W    $0000,$0000,$0000
  475.  
  476. FONT:    BLK.B 3480,0
  477.  
  478. STARS:
  479.     DC.W    $2C13,$C85E,$6C3B,$129F,$E50D,$481C,$3E11,$3771
  480.     DC.W    $2C5F,$2191,$4A0C,$FE14,$78B1,$4837,$C364,$FB0B
  481.     DC.W    $8BC7,$43E9,$6FFB,$503A,$951E,$4862,$98E7,$305F
  482.     DC.W    $4078,$FCC8,$6123,$4CA4,$F368,$2983,$F9DB,$6521
  483.     DC.W    $31AA,$5743,$FE6B,$DC5A,$AC48,$A362,$EAB8,$C8B7
  484.     DC.W    $0A2A,$4EF1,$FF00
  485.  
  486. BLK.B 426*16,$00
  487.  
  488.     DC.W    $0000,$0000,$0000,$009C,$8010
  489.     DC.W    $0096,$8020,$0120,$0007,$0122,$F010,$0124,$0007
  490.     DC.W    $0126,$F000,$0128,$0007,$012A,$F000,$012C,$0007
  491.     DC.W    $012E,$F000,$0130,$0007,$0132,$F000,$0134,$0007
  492.     DC.W    $0136,$F000,$0138,$0007,$013A,$F000,$013C,$0007
  493.     DC.W    $013E,$F000,$01A0,$0000,$01A2,$0555,$01A4,$0EEE
  494.     DC.W    $01A6,$0999,$2C09,$FFFE,$0104,$0008,$008E,$2C71
  495.     DC.W    $0090,$FFC0,$0092,$0038,$0094,$00D0,$0100,$0000
  496.     DC.W    $0102,$0000,$0192,$0006,$4B09,$FFFE,$0180,$0D00
  497.     DC.W    $4C09,$FFFE,$0180,$0F66,$4D09,$FFFE,$0180,$0D00
  498.     DC.W    $4E09,$FFFE,$0180,$0000,$5109,$FFFE,$0100,$2600
  499.     DC.W    $0108,$0002,$010A,$0002,$00E0,$0007,$00E2,$4002
  500.     DC.W    $00E4,$0007,$00E6,$6000,$5109,$FFFE,$0182,$0300
  501.     DC.W    $5309,$FFFE,$0182,$0400,$5509,$FFFE,$0182,$0500
  502.     DC.W    $5709,$FFFE,$0182,$0600,$5909,$FFFE,$0182,$0700
  503.     DC.W    $5B09,$FFFE,$0182,$0800,$5D09,$FFFE,$0182,$0900
  504.     DC.W    $5F09,$FFFE,$0182,$0A00,$6109,$FFFE,$0182,$0B00
  505.     DC.W    $6309,$FFFE,$0182,$0C00,$6509,$FFFE,$0182,$0D00
  506.     DC.W    $6709,$FFFE,$0182,$0E00,$6909,$FFFE,$0182,$0F00
  507.     DC.W    $6B09,$FFFE,$0182,$0F10,$6D09,$FFFE,$0182,$0F20
  508.     DC.W    $6F09,$FFFE,$0182,$0F30,$7109,$FFFE,$0182,$0F40
  509.     DC.W    $7309,$FFFE,$0182,$0F50,$7509,$FFFE,$0182,$0F60
  510.     DC.W    $7709,$FFFE,$0182,$0F70,$7909,$FFFE,$0182,$0F80
  511.     DC.W    $7B09,$FFFE,$0182,$0F90,$7D09,$FFFE,$0182,$0FA0
  512.     DC.W    $7F09,$FFFE,$0182,$0FB0,$8109,$FFFE,$0182,$0FC0
  513.     DC.W    $8309,$FFFE,$0182,$0FD0,$8509,$FFFE,$0182,$0FE0
  514.     DC.W    $8709,$FFFE,$0182,$0FF0,$8909,$FFFE,$0182,$0FF1
  515.     DC.W    $8B09,$FFFE,$0182,$0FF2,$8D09,$FFFE,$0182,$0FF3
  516.     DC.W    $8F09,$FFFE,$0182,$0FF4,$9109,$FFFE,$0182,$0FF5
  517.     DC.W    $9309,$FFFE,$0182,$0FF6,$9509,$FFFE,$0182,$0FF7
  518.     DC.W    $9709,$FFFE,$0182,$0FF8,$9909,$FFFE,$0182,$0FF9
  519.     DC.W    $9B09,$FFFE,$0182,$0FFA,$9D09,$FFFE,$0182,$0FFB
  520.     DC.W    $9F09,$FFFE,$0182,$0FFC,$A109,$FFFE,$0182,$0FFD
  521.     DC.W    $A309,$FFFE,$0182,$0FFE,$A509,$FFFE,$0182,$0FFF
  522.     DC.W    $A709,$FFFE,$0182,$0EFF,$A909,$FFFE,$0182,$0DFF
  523.     DC.W    $AB09,$FFFE,$0182,$0CFF,$AD09,$FFFE,$0182,$0BFF
  524.     DC.W    $AF09,$FFFE,$0182,$0AFF,$B109,$FFFE,$0182,$09FF
  525.     DC.W    $B309,$FFFE,$0182,$08FF,$B509,$FFFE,$0182,$07FF
  526.     DC.W    $B709,$FFFE,$0182,$06FF,$B909,$FFFE,$0182,$05FF
  527.     DC.W    $BB09,$FFFE,$0182,$04FF,$BD09,$FFFE,$0182,$03FF
  528.     DC.W    $BF09,$FFFE,$0182,$02FF,$C109,$FFFE,$0182,$01FF
  529.     DC.W    $C309,$FFFE,$0182,$00FF,$C509,$FFFE,$0182,$00EF
  530.     DC.W    $C709,$FFFE,$0182,$00DF,$C909,$FFFE,$0182,$00CF
  531.     DC.W    $CB09,$FFFE,$0182,$00BF,$CD09,$FFFE,$0182,$00AF
  532.     DC.W    $CF09,$FFFE,$0182,$009F,$D109,$FFFE,$0182,$008F
  533.     DC.W    $D309,$FFFE,$0182,$007F,$D509,$FFFE,$0182,$006F
  534.     DC.W    $D709,$FFFE,$0182,$005F,$D909,$FFFE,$0182,$004F
  535.     DC.W    $DB09,$FFFE,$0182,$003F,$DD09,$FFFE,$0182,$002F
  536.     DC.W    $DF09,$FFFE,$0182,$001F,$E109,$FFFE,$0182,$000F
  537.     DC.W    $E309,$FFFE,$0182,$000E,$E509,$FFFE,$0182,$000D
  538.     DC.W    $E709,$FFFE,$0182,$000C,$E909,$FFFE,$0182,$000B
  539.     DC.W    $EB09,$FFFE,$0182,$000A,$ED09,$FFFE,$0182,$0009
  540.     DC.W    $EF09,$FFFE,$0182,$0008,$F109,$FFFE,$0182,$0007
  541.     DC.W    $F309,$FFFE,$0182,$0006,$F509,$FFFE,$0182,$0005
  542.     DC.W    $F709,$FFFE,$0182,$0004,$F909,$FFFE,$0182,$0003
  543.     DC.W    $FB09,$FFFE,$0182,$0003,$FD09,$FFFE,$0182,$0000
  544.     DC.W    $0100,$0000,$FF09,$FFFE,$0180,$000D,$FFE1,$FFFE
  545.     DC.W    $0009,$FFFE,$0180,$066F,$0109,$FFFE,$0180,$000D
  546.     DC.W    $0209,$FFFE,$0180,$0000,$FFFF,$FFFE
  547.  
  548. BLK.B $C61,$00
  549. EVEN
  550. DC.W    $4700,$0000
  551. fin:
  552.